home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00603_order scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  2.6 KB  |  21 lines
  1. on loadOrder
  2.   global gOrder
  3.   set gOrder to [[#unit: 1, #chapter: 1], [#unit: 1, #chapter: 2], [#unit: 1, #chapter: 3], [#unit: 1, #chapter: 4], [#unit: 1, #chapter: 5], [#unit: 1, #chapter: 6], [#unit: 1, #chapter: 7], [#unit: 1, #chapter: 8], [#unit: 1, #chapter: 9], [#unit: 1, #chapter: 10], [#unit: 1, #chapter: 11], [#unit: 2, #chapter: 1], [#unit: 2, #chapter: 2], [#unit: 2, #chapter: 3], [#unit: 2, #chapter: 4], [#unit: 2, #chapter: 5], [#unit: 2, #chapter: 6], [#unit: 2, #chapter: 7], [#unit: 2, #chapter: 8], [#unit: 2, #chapter: 9], [#unit: 2, #chapter: 10], [#unit: 2, #chapter: 11], [#unit: 3, #chapter: 1], [#unit: 3, #chapter: 2], [#unit: 3, #chapter: 3], [#unit: 3, #chapter: 4], [#unit: 3, #chapter: 5], [#unit: 3, #chapter: 6], [#unit: 3, #chapter: 7], [#unit: 3, #chapter: 8], [#unit: 3, #chapter: 9], [#unit: 3, #chapter: 10], [#unit: 3, #chapter: 11], [#unit: 4, #chapter: 1], [#unit: 4, #chapter: 2], [#unit: 4, #chapter: 3], [#unit: 4, #chapter: 4], [#unit: 4, #chapter: 5], [#unit: 4, #chapter: 6], [#unit: 4, #chapter: 7], [#unit: 4, #chapter: 8], [#unit: 4, #chapter: 9], [#unit: 4, #chapter: 10], [#unit: 4, #chapter: 11], [#unit: 5, #chapter: 1], [#unit: 5, #chapter: 2], [#unit: 5, #chapter: 3], [#unit: 5, #chapter: 4], [#unit: 5, #chapter: 5], [#unit: 5, #chapter: 6], [#unit: 5, #chapter: 7], [#unit: 5, #chapter: 8], [#unit: 5, #chapter: 9], [#unit: 5, #chapter: 10], [#unit: 5, #chapter: 11], [#unit: 5, #chapter: 12], [#unit: 6, #chapter: 1], [#unit: 6, #chapter: 2], [#unit: 6, #chapter: 3], [#unit: 6, #chapter: 4], [#unit: 6, #chapter: 5], [#unit: 6, #chapter: 6], [#unit: 6, #chapter: 7], [#unit: 6, #chapter: 8], [#unit: 6, #chapter: 9], [#unit: 6, #chapter: 10], [#unit: 6, #chapter: 11], [#unit: 6, #chapter: 12], [#unit: 7, #chapter: 1], [#unit: 7, #chapter: 2], [#unit: 7, #chapter: 3], [#unit: 7, #chapter: 4], [#unit: 7, #chapter: 5], [#unit: 7, #chapter: 6], [#unit: 7, #chapter: 7], [#unit: 7, #chapter: 8], [#unit: 7, #chapter: 9], [#unit: 7, #chapter: 10], [#unit: 7, #chapter: 11], [#unit: 7, #chapter: 12], [#unit: 8, #chapter: 1], [#unit: 8, #chapter: 2], [#unit: 8, #chapter: 3], [#unit: 8, #chapter: 4], [#unit: 8, #chapter: 5], [#unit: 8, #chapter: 6], [#unit: 8, #chapter: 7], [#unit: 8, #chapter: 8], [#unit: 8, #chapter: 9], [#unit: 8, #chapter: 10], [#unit: 8, #chapter: 11], [#unit: 8, #chapter: 12]]
  4.   return 1
  5. end
  6.  
  7. on mapUnitChap index
  8.   global gOrder
  9.   return getAt(gOrder, index)
  10. end
  11.  
  12. on mapUC2Index uc
  13.   set u to value(char 1 to 2 of uc)
  14.   set c to value(char 4 to 5 of uc)
  15.   if u < 5 then
  16.     return ((u - 1) * 11) + c
  17.   else
  18.     return 44 + ((u - 5) * 12) + c
  19.   end if
  20. end
  21.